home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / DISK SNOOPER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 10  REM  *****************************
  2. 11  REM  *     DISK SNOOPER          *
  3. 12  REM  *   BY PRESTON R BLACK M.D. *
  4. 13  REM  *    COPYRIGHT (C) 1981     *
  5. 14  REM  *    BY MICRO-SPARC INC     *
  6. 15  REM  *    LINCOLN, MA. 01773     *
  7. 16  REM  *****************************
  8. 100  DIM RWTS(30)
  9. 110 D$ =  CHR$(4): REM  CTRL D
  10. 120  REM  LOAD PRINTING ROUTINE
  11. 130  PRINT D$;"BLOAD PRINTOUT"
  12. 140  REM  POKE THE CONTROLLING SUBROUTINE
  13. 150  REM  THE IOB, AND THE DCT INTO MEMORY
  14. 160  FOR I = 0 TO 30: READ RWTS(I)
  15. 170  POKE 896 +I,RWTS(I): NEXT 
  16. 180  REM  GET TRACK AND SECTOR
  17. 190  TEXT : HOME : PRINT : INPUT "TRACK TO BE REVIEWED: ";TR
  18. 200  INPUT "SECTOR TO BE REVIEWED: ";SR
  19. 210  REM  POKE INTO IOB
  20. 220  POKE 910,TR: POKE 911,SR
  21. 230  REM  CALL CONTROLLING SUBROUTINE
  22. 240  HOME : CALL 896
  23. 250  REM  CALL PRINTING SUBROUTINE
  24. 260  CALL 768
  25. 270  PRINT : PRINT "PRESS RETURN TO QUIT--"
  26. 280  PRINT "ANY OTHER KEY TO CONTINUE. ";: GET A$: PRINT A$
  27. 290  PRINT : IF A$ < > CHR$(13)  THEN 190
  28. 300  DATA  169,03,160,138,32,217,3,96,0,0,1,96,1,0,0,0,155,3,0,32,0,0,1,0,0,96,1,0,1,239,216
  29. 310  END